1 POKE53280,7:POKE53281,7:POKE646,0:D3=1
2 PRINTCHR$(14)CHR$(8)
3 DIMHT$(40):HT$(1)="":FORI=2TO40:HT$(I)=HT$(I-1)+"":NEXT
4 HT$=CHR$(145)+CHR$(13)
5 DIMVT$(25):VT$(0)="":FORI=1TO25:VT$(I)=VT$(I-1)+CHR$(17):NEXT
6 S=54272:FORX=0TO24:POKES+X,0:NEXT:POKES+5,103:POKES+6,167:POKES+24,15
10 PRINTCHR$(147):GOTO 100
40 Q=0:FA=0:SP=0:G=0
50 RETURN
70 :
71 HT$=CHR$(145)+CHR$(13)
72 FORPA=0TO19:PRINTVT$(1)HT$TAB(19-PA)"*"VT$(1);
73 PRINTHT$TAB(19+PA)"*";:NEXT
74 FORPA=1TO22:PRINTVT$(PA)HT$TAB(0)"*"HT$TAB(38)"*";
75 NEXT
76 FORPA=19TO0STEP-1:PRINTVT$(23)HT$TAB(19-PA)"*";
77 PRINTVT$(23)HT$TAB(19+PA)"*";:NEXT
78 PRINTVT$(23);
80 :
82 RETURN 
90 FORBY=21TO2STEP-1
95 PRINTVT$(BY)"                                    "
97 NEXT
99 RETURN
100 :
110 DIM W$(100),W(100),DO$(26)
120 :
130 :
150 RESTORE
180 FORI=1TO82:READW$(I):NEXT
190 :
200 PRINT"[147]"VT$(23);
210 FORI=1TO82
220 PRINTW$(I)
230 NEXT
235 PRINTVT$(0)" "SPC(37)" "
240 FORPA=1TO1500:NEXT
250 GOSUB70
260 FORPA=1TO500:NEXT
300 FORBY=21TO2STEP-1
310 PRINTVT$(BY)"                                    "
320 :
330 NEXT 
360 :
365 :
370 IFVQ=1THENPRINT"[147]";:GOSUB70
373 VQ=1
374 PRINT"":PRINTVT$(3)HT$TAB(12)"[206]O-[210]ES [200]ANGMAN"
375 PRINTHT$TAB(12)"[163][163] [163][163][163] [163][163][163][163][163][163][163]"
380 PRINTVT$(7)HT$TAB(13): PRINT "[215]HICH SET?"
390 PRINTHT$TAB(49)"1. [210]EGULAR LIST"
400 PRINTHT$TAB(49)"2. [217]OUNG PERSON'S LIST"
410 PRINTHT$TAB(49)"3. [208]HRASE LIST"
415 PRINTHT$TAB(49)"[211]. [211]OUND EFFECTS-";:ON D3 GOSUB453,458
420 PRINTHT$TAB(49)"[209] -- [209]UIT TO [204]OADSTAR"
430 PRINTVT$(20):PRINTHT$TAB(13):PRINT" [208]ICK ONE: ";
440 POKE198,.:WAIT198,1:GETK$:IFK$="Q"THENPRINT"[209]":GOTO10000
450 IFK$="S"THENIFD3=1THEND3=2:GOTO374
451 GOTO455
453 PRINT"ON[146] ":RETURN
455 IFK$="S"THENIFD3=2THEND3=1:GOTO374
456 GOTO460
458 PRINT"OFF[146]":RETURN
460 IFVAL(K$)=.THEN440
470 K=VAL(K$):IFK>3THEN440
475 PRINTK$
480 IFK$=W$(0)THEN570
490 W$(0)=K$:K$=""
500 OPEN8,8,8,"T.HANGTEXT."+W$(0)
520 INPUT#8,W(0):FORI=1TOW(0)
530 INPUT#8,W$(I):NEXT
540 CLOSE8
550 FORI=1TOW(0):W(I)=I:NEXT
560 FORI=1TOW(0):R1=INT(RND(1)*W(0))+1:T=W(R1):W(R1)=W(I):W(I)=T:NEXT
570 GOSUB90
580 PRINTVT$(10)HT$TAB(8)"[210]EMEMBER, SEVEN WRONG"
590 PRINTVT$(13)HT$TAB(8)"GUESSES AND YOU LOSE."
600 FORPA=1TO1500:NEXT
630 FORPA=1TO40:NEXT
640 :
650 :
660 PRINTVT$(24);:PRINT
670 FORUU=1TO23
680 PRINT:OX=1:D=19-UU:GOSUB4000
690 :
700 NEXT:POKES+4,16
710 IF K$ <  > "" THEN 730
720 W(0)=W(0)+1
730 GOSUB40
740 W(0)=W(0)-1
741 IFW(0)=0THENPRINTVT$(12);:PRINT"[149][217]OU'VE USED ALL THE WORDS IN THIS LIST."
742 IFW(0)=0THENPRINT"[149][215]E'LL NOW RETURN YOU TO THE MAIN MENU."
743 IFW(0)=0THENFORPA=1TO2000:NEXT:W$(0)="":VQ=1:GOTO360
750 P$=W$(W(W(0)))
755 FORI=1TO26:DO$(I)="":NEXT
760 PRINT"[147]":FORDA=1TOLEN(P$)
761 PS$=MID$(P$,DA,1)
765 IFPS$<"A"THENPRINTVT$(14);:PRINTHT$TAB(((2*DA)+(19-LEN(P$))));:PRINTPS$:GOTO790
770 PRINTVT$(14);:PRINTHT$TAB(((2 * DA) + (19 -  LEN (P$))));: PRINT "[183]"
780 :
790 NEXT 
800 FORDA=1TOLEN(P$)
810 IFMID$(P$,DA,1)<>" "THEN820
811 PRINTVT$(14);
815 PRINTHT$TAB(((2*DA)+(20-LEN(P$))));: PRINT " "
816 SP=SP+1
820 IFMID$(P$,DA,1)<>"-"THEN830
821 PRINTVT$(14);:PRINTHT$TAB(((2*DA)+(20-LEN(P$)));
825 PRINT" ":PRINTVT$(13);:PRINTHT$TAB(((2*DA)+( 20-LEN(P$)));
826 PRINT"[183]":SP=SP+1
830 IFMID$(P$,DA,1)<>"'"THEN840
831 PRINTVT$(14)HT$TAB(((2*DA)+(20-LEN(P$)));
835 PRINT" ":PRINTVT$ (13)HT$TAB(((2*DA)+20-LEN(P$)));
836 PRINT"'":SP=SP+1
840 IFMID$(P$,DA,1)<>"@"THEN850
841 PRINTVT$(14)HT$TAB(((2*DA)+(20-LEN(P$))));
842 PRINT",":SP=SP+1
850 NEXT 
860 GOSUB 7080
870 PRINTVT$(22)"                                       "
880 FORPA=1TO100:NEXT
890 :
900 :
910 PRINTVT$(22)HT$TAB(13)"[199]UESS A LETTER"
920 POKE198,0:WAIT198,1:GETL1$:IFL1$<"A"ORL1$>"Z"THEN920
930 :
931 FORV=17TO23:PRINTVT$(V)HT$TAB(0);
932 PRINT"                                      ": NEXT
940 L1=ASC(L1$):L$=CHR$(L1+128)
950 Q=Q+1
960 IFQ=1THEN1060
970 FORZ=1TOQ-1
980 IFL$=DO$(Z)THENZ=Q:NEXT:GOTO1010
990 NEXT 
1000 GOTO1060
1010 :
1020 PRINTVT$(21);
1030 PRINTHT$TAB(9)"[149][217]OO-HOO, [197]INSTEIN, YOU": PRINTHT$TAB(6);
1040 PRINT "GUESSED "L$" BEFORE.  [212]RY AGAIN."
1050 GOTO 920
1060 FORX=1TOLEN(P$)
1070 IFL$=MID$(P$,X,1)THEN1180
1080 NEXT 
1090 DO$(Q)=L$
1100 IFSUB=1THENSUB=0:GOTO920
1110 PRINTVT$(20);
1120 G=G+1
1130 FORPA=1TO300:NEXTPA
1140 GOSUB7000
1150 IFG=7THEN3400
1160 PRINTVT$(22)HT$TAB(12)"[215]RONG.  [212]RY AGAIN."
1170 GOTO920
1180 SP=SP+1
1190 FA=1
1200 GOSUB8000
1210 IFSP=LEN(P$)THEN3000
1220 SUB=1
1230 GOTO1080
1240 FORPA=1TO40:NEXT
3000 FORV=20TO23:PRINTVT$(V)HT$TAB(0)SPC(38):NEXT
3010 FORPAUSE=1TO600:NEXT
3020 IFG=0THEN3260
3030 IFG=1THEN3310
3040 PRINTVT$(15)HT$TAB(10)"[144] [207]KAY, YOU WON. [194]UT YOU"
3050 PRINTVT$(17)HT$TAB(12)"GOT   WRONG FIRST!"
3060 PRINTVT$(19)HT$TAB(8)"[195]ARE TO TRY ANOTHER ROUND?"
3070 PRINTHT$TAB( 57)"([217]/[206])"
3072 PRINT"                                      "
3074 PRINT"                                      "
3080 FORPA=1TO40:NEXT
3090 OX=1:FORYUP=1TOG
3100 FORPA=1TO60:NEXT
3110 :
3120 PRINTVT$(17)HT$TAB(15)CHR$(18);YUP;:D=YUP*2:GOSUB4000
3130 NEXT:POKES+4,16
3140 PRINTVT$(17)HT$TAB(15)G;
3150 :
3160 POKE198,0:WAIT198,1:GETAG$:IFAG$<>"Y"ANDAG$<>"N"THEN3160
3165 :
3170 WI=INT(RND(1)*6)+1
3180 IFWI=P1ORWI=P2ORWI=P3THEN3170
3190 P3=P2:P2=P1:P1=WI
3200 ON WI GOSUB 5000,5130,5260,5360,5470,5570
3220 IFAG$="Y"THEN3240
3230 GOTO360
3240 FORWP=0TO26:DO$(WP)="":NEXT
3250 GOTO730
3260 FORV=20TO23:PRINTVT$(V)HT$TAB(0);
3265 PRINT"                                      ": NEXT
3268 PRINTVT$(16)HT$TAB(5)"[156][193] PERFECT GAME! [201]'M IMPRESSED!"
3269 FORD=23TO-6STEP-1:OX=1:GOSUB4000:NEXT:POKES+4,16:FORPA=1TO300:NEXT
3270 PRINTHT$TAB(6)"[201] BET YOU CAN'T DO IT AGAIN."
3275 FORPA=1TO1000:NEXT
3280 PRINT : PRINTHT$TAB(4)"[210]EADY TO GIVE ME ANOTHER CHANCE?"
3290 PRINTHT$TAB( 57)"([217]/[206])"
3300 GOTO 3150
3310 PRINTVT$(15)HT$TAB( 8)"[207]NLY ONE WRONG. [206]OT BAD..."
3320 FORD= 23TO-6STEP-1:OX=1:GOSUB4000:NEXT:POKES+4,16:FORPA=1TO800:NEXT
3330 PRINT : PRINTHT$TAB(14)"[198]OR A HUMAN."
3340 FORPA=1TO600:NEXT
3350 PRINT : PRINTHT$TAB( 6)"[212]HE NEXT ROUND SHALL BE MINE."
3360 FORPA=1TO300:NEXT:PRINT
3370 PRINTHT$TAB( 6)"[193]RE YOU PREPARED TO CONTINUE?"
3380 PRINTHT$TAB(57): PRINT "([217]/[206])"
3390 GOTO 3150
3400 FORV=20TO23:PRINTVT$(V);:PRINTHT$TAB(0);
3405 PRINT"                                      ": NEXT
3410 FORPA=1TO300:NEXT
3420 IFFA=0THEN3560
3430 PRINTVT$(15)HT$TAB(2)"[211]ORRY, BUT YOU'VE RUN OUT OF GUESSES."
3440 FORD=-6TO23:OX=1:GOSUB4000:NEXT:POKES+4,16:FORPA=1TO300:NEXT
3450 PRINT:PRINTHT$TAB(8)"[200]ERE'S THE ENTIRE WORD..."
3460 FORPA=1TO300:NEXT
3470 FORBIT=1TOLEN(P$)
3480 :
3490 PRINTVT$(13)HT$TAB(((2*BIT)+(19-LEN(P$))))""MID$(P$,BIT,1)
3500 OX=1:D=25-BIT*2:GOSUB4000:FORPA=1TO50:NEXT
3503 PRINTVT$(13)HT$TAB(((2*BIT)+(19-LEN(P$))))MID$(P$,BIT,1)
3505 NEXT:POKES+4,16
3510 FORPAUSE=1TO1300:NEXT
3520 IFFA=0THEN3610
3530 PRINTVT$(19)HT$TAB(7)"[195]ARE TO REVENGE YOUR DEATH?"
3540 PRINTHT$TAB(58)"([217]/[206])"
3550 GOTO3150
3560 PRINTVT$(15)HT$TAB(3)"[215]OW! [206]OT EVEN ONE RIGHT! [193]RE YOU"
3570 PRINT " SURE YOU'VE PLAVED THIS GAME BEFORE?"
3580 FORD=-6TO23:OX=1:GOSUB4000:NEXT:POKES+4,16:FORPA=1TO1000:NEXT
3590 PRINT:PRINT " [193]NYWAY, HERE'S WHAT YOU DIDN'T GET..."
3600 GOTO3460
3610 FORV=15TO19:PRINTVT$(V)HT$TAB(0);
3615 PRINT"                                      ": NEXT 
3620 PRINTVT$(15)"    [204]OOK, [201] KNOW THIS PROBABLY ISN'T"
3630 PRINT "    A GOOD TIME, WHAT WITH YOU LOSING"
3640 PRINT "     SO BAD, BUT [201] WAS WONDERING IF"
3650 PRINT "      YOU'D LIKE TO PLAY AGAIN...?"
3660 GOTO 3540
4000 IFD3=2THENRETURN
4001 D2=24-D
4005 IFOX<>1 THEN4060
4006 OX=0
4050 POKES+4,17
4060 POKES+1,D2
4070 POKES+1,D2*4
4075 IFD<>18THENRETURN
4080 POKES+4,16
4090 RETURN
5000 :
5110 PRINT"[147]";
5120 RETURN 
5130 :
5140 FORD1=0TO12
5150 IV$=CHR$(18)
5160 GOSUB5210
5170 IV$=""
5180 GOSUB5210
5190 NEXT 
5200 RETURN 
5210 PRINTVT$(D1)IV$"                                       "
5230 PRINTVT$(23-D1)IV$"                                       "
5250 RETURN 
5260 :
5270 FORI1=0TO30STEP10
5280 FORI=1TO23
5290 S1$="          ":IFI1=30THENS1$=LEFT$(S1$,LEN(S1$)-1)
5300 PRINTVT$(I)HT$TAB(I1)CHR$(18)S1$
5310 PRINTVT$(I-1)HT$TAB(I1)S1$
5320 NEXT 
5330 PRINTVT$(23-(ABS(I1=31)*2))HT$TAB(I1)"          "
5340 NEXT 
5350 RETURN 
5360 :
5370 FORJ1=0TO2
5380 FORJ=23TO0STEP-1
5390 :
5400 PRINTVT$(J)HT$TAB(24-(J1*12))CHR$(18)"               ";
5410 :
5420 PRINTVT$(J+1)HT$TAB(24-(J1*12))"               ";
5430 NEXT 
5440 PRINTVT$(0)HT$TAB(24-(J1*12))"               "
5450 NEXT 
5460 RETURN 
5470 :
5480 :
5490 :
5500 FORKK=23TO1STEP-1
5510 PRINTVT$(KK)"[144]***************************************"
5520 FORPA=1TO10:NEXT
5530 PRINTVT$(KK);
5535 PRINT"                                       "
5540 :
5550 NEXT 
5560 RETURN 
5570 :
5580 FORL=0TO11
5590 FORL1=30TO0STEP-10
5595 PL$="[149]++++++++++":IFL1=30THENPL$=LEFT$(PL$,9)
5600 PRINTVT$(12+L)HT$TAB(L1)PL$
5610 PRINTVT$(12-L)HT$TAB(L1)PL$
5620 PRINTVT$(12+L)HT$TAB(L1);:FORI=1TO39-L1:PRINT" ";:NEXT
5630 PRINTVT$(12-L)HT$TAB(L1);:FORI=1TO39-L1:PRINT" ";:NEXT
5640 FORPA=1TO30:NEXT
5650 NEXT 
5660 NEXT 
5670 RETURN 
7000 :
7010 WH=ASC(L$)-64-128
7020 IFWH>17THENWH=((WH-18)*4)+164
7030 IFWH>9ANDWH<80THENWH=((WH-10)*4)+86
7040 IFWH<40THENWH=WH*4
7050 PRINTVT$(3)HT$TAB(WH-2)CHR$(18)" "L$" ";
7060 RETURN 
7070 :
7080 PRINTVT$(3)"   [193]   [194]   [195]   [196]   [197]   [198]   [199]   [200]   [201]": PRINT
7082 PRINT "     [202]   [203]   [204]   [205]   [206]   [207]   [208]   [209]  ": PRINT
7084 PRINT "   [210]   [211]   [212]   [213]   [214]   [215]   [216]   [217]   [218]"
7090 PRINTVT$(8)HT$TAB(3)"[144][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
7095 RETURN 
8000 :
8010 PRINTVT$(20);
8020 IFSP=LEN(P$)THEN8040
8030 PRINTVT$(22)HT$TAB(14)"   [210]IGHT!   "
8040 :
8050 J1=ASC(L$)-64-128
8060 IFJ1>17THENJ1=((J1-18)*4)+4:GOTO8310
8070 IFJ1>9THENJ1=((J1-10)*4)+6:GOTO8460
8080 J1=J1*4
8085 J1=J1-1
8090 PRINTVT$(3)HT$TAB(J1-1)CHR$(18)" "L$" "
8100 OX=1:D=8:GOSUB4000
8110 FORPA=1TO32:NEXT
8120 PRINTVT$(3)HT$TAB(J1-1)" "L$" "
8130 GOSUB4000
8140 PRINTVT$(2)HT$TAB(J1+40)L$:PRINTVT$(2)
8145 PRINTHT$TAB(J1+80)" "
8150 PRINTVT$(2)HT$TAB(J1)L$:PRINTVT$( 2)HT$TAB(J1+40);
8155 PRINT" ":D=7
8160 FORJ2=J1-1TO1STEP-1
8170 PRINTVT$(2)HT$TAB(J2)L$;" ":GOSUB4000: NEXT
8180 FORJ3=2TO9
8190 PRINTVT$(J3+1)HT$TAB(1)L$: PRINTVT$(J3)HT$TAB(1);
8195 PRINT" ":D=J3+6:GOSUB4000:NEXT:D=15
8200 FORJ4=1TO((2*X)+20-LEN(P$))-2
8210 PRINTVT$(10)HT$TAB(J4)" "L$:GOSUB4000:NEXT
8220 FORJ5=10TO12
8230 PRINTVT$(J5+1)HT$TAB(J4)L$:PRINTVT$(J5)HT$TAB(J4);
8235 PRINT" ":D=J5+6:GOSUB4000:NEXT
8240 PRINTVT$(13)HT$TAB(J4-1)CHR$(18);" "L$" "
8250 D=23:GOSUB4000
8260 FORPA=1TO32:NEXT
8270 GOSUB4000
8280 PRINTVT$(13)HT$TAB(J4-1)" "L$" "
8290 :
8300 IFSP<>LEN(P$)THENPRINTVT$(22)HT$TAB(14)"[206]EXT [199]UESS?"
8302 RETURN
8310 :
8320 PRINTVT$(7)HT$TAB(J1-2)CHR$(18)" "L$" "
8330 OX=1:D=12:GOSUB4000
8340 FORPA=1TO32:NEXT
8350 PRINTVT$(7)HT$TAB(J1-2)" "L$" "
8360 GOSUB4000
8370 PRINTVT$(6)HT$TAB(J1-1)L$:PRINTVT$(7);
8371 PRINTHT$TAB(J1-1)" ":D=11:GOSUB4000
8380 :
8385 :
8390 FORJ2=J1-1TO36
8400 PRINTVT$(6)HT$TAB(J2)" "L$:GOSUB4000:NEXT
8410 FORJ3=6TO2STEP-1
8420 PRINTVT$(J3)HT$TAB(37)L$:PRINTVT$(J3+1);
8425 PRINTHT$TAB(37)" ":D=J3+5:GOSUB4000:NEXT:D=7
8430 FORJ4=37TO1STEP-1
8440 PRINTVT$(2)HT$TAB(J4)L$" ":GOSUB4000:NEXT
8450 GOTO 8180
8460 :
8465 J1=J1-1
8470 PRINTVT$(5)HT$TAB(J1-1)CHR$(18)" "L$" "
8480 OX=1:D=10:GOSUB4000
8490 FORPA=1TO32:NEXT
8500 PRINTVT$(5)HT$TAB(J1-1)" "L$" "
8510 GOSUB4000
8520 FORJ9=5TO2STEP-1
8530 PRINTVT$(J9)HT$TAB(J1)L$:PRINTVT$(J9+1)HT$TAB(J1);
8535 PRINT" ":D=J9+5:GOSUB4000:NEXT:D=7
8540 FORJ8=J1TO1STEP-1
8550 PRINTVT$(2)HT$TAB(J8)L$" ":GOSUB4000:NEXT
8560 GOTO 8180
10000 :
10010 :
10020 PRINT"[147]";
10030 PRINTVT$(3)HT$TAB(5)"[197]NCOUNTER HEAVY TURBULENCE WITH"
10040 PRINTVT$(20)HT$TAB(8)"MAKING A MESS SINCE 1982"
10045 PRINTVT$(22)"         [208]RESS ANY KEY TO QUIT."
10050 C$ = "":B$ = "":S$ = " "
10070 A$="[199][213][193][206][207][218][193][208] [211][207][198][212][215][193][210][197]"
10075 C$="                 "
10090 I=5:J=1:K=1:L=1:I2=6:K2=1
10100 PRINTVT$(I)HT$(K)A$
10110 PRINTVT$(I2)HT$(K2)C$
10115 I2=I:K2=K
10120 I=I+J:IF(I=5)OR(I=18)THENJ=J*-1
10130 K=K+L:IF(K=1)OR(K=23)THENL=L*-1
10140 GETKB$:IFKB$=""THEN10100
10150 PRINTVT$(I2)HT$(K2)C$:PRINTVT$(11)HT$(12)A$
10165 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
10167 IFER<>63THENEND
10170 PRINT"[147]";:LOAD"HELLO CONNECT",8
20000 :
20001 DATA".                                     ."
20002 DATA".                                     ."
20003 DATA".                                     ."
20004 DATA".                                     ."
20005 DATA".                                     ."
20006 DATA".                                     ."
20007 DATA".                                     ."
20008 DATA".                                     ."
20009 DATA"..                                   .."
20010 DATA"..                                   .."
20011 DATA"..                                   .."
20012 DATA"...                                 ..."
20013 DATA"...                                 ..."
20014 DATA"...                                 ..."
20015 DATA"....                               ...."
20016 DATA"....                               ...."
20017 DATA".....                             ....."
20018 DATA".....                             ....."
20019 DATA"......                           ......"
20020 DATA"......                           ......"
20021 DATA".......                         ......."
20022 DATA"........                       ........"
20023 DATA".........                     ........."
20024 DATA"..........                   .........."
20025 DATA"...........                 ..........."
20026 DATA".............             ............."
20027 DATA"...............         ..............."
20028 DATA".................     ................."
20029 DATA"................... ..................."
20030 DATA"......................................."
20031 DATA"......................................."
20032 DATA"......................................."
20033 DATA". ................................... ."
20034 DATA". ................................... ."
20035 DATA".  .................................  ."
20036 DATA".  .................................  ."
20037 DATA".   ...............................   ."
20038 DATA".   ...............................   ."
20039 DATA".    .............................    ."
20040 DATA".     ...........................     ."
20041 DATA".      .........................      ."
20042 DATA".       .......................       ."
20043 DATA".        .....................        ."
20044 DATA".         ...................         ."
20045 DATA".          .................          ."
20046 DATA".           ...............           ."
20047 DATA".            .............            ."
20048 DATA".             ...........             ."
20049 DATA".              .........              ."
20050 DATA".               .......               ."
20051 DATA".                .....                ."
20052 DATA".                 ...                 ."
20053 DATA".                  .                  ."
20054 DATA".                                     ."
20055 DATA".                                     ."
20056 DATA".                                     ."
20057 DATA".                                     ."
20058 DATA".                                     ."
20059 DATA".                                     ."
20060 DATA"......................................."
20061 DATA".                                     ."
20062 DATA". [200]  [200]  [193][193]  [206]  [206]  [199][199]  [205]   [205]  [193][193]  [206]  [206] ."
20063 DATA". [200]  [200] [193]  [193] [206][206] [206] [199]  [199] [205][205] [205][205] [193]  [193] [206][206] [206] ."
20064 DATA". [200][200][200][200] [193]  [193] [206][206][206][206] [199]    [205] [205] [205] [193]  [193] [206][206][206][206] ."
20065 DATA". [200]  [200] [193][193][193][193] [206] [206][206] [199] [199][199] [205] [205] [205] [193][193][193][193] [206] [206][206] ."
20066 DATA". [200]  [200] [193]  [193] [206]  [206] [199]  [199] [205]   [205] [193]  [193] [206]  [206] ."
20067 DATA". [200]  [200] [193]  [193] [206]  [206]  [199][199]  [205]   [205] [193]  [193] [206]  [206] ."
20068 DATA".                                     ."
20069 DATA".                                     ."
20070 DATA".                 BY                  ."
20071 DATA".                                     ."
20072 DATA".                                     ."
20073 DATA".                                     ."
20074 DATA".          [202]EFF [211]. [212]RUELSEN           ."
20075 DATA".                                     ."
20076 DATA".                                     ."
20077 DATA".                                     ."
20078 DATA".      ([195])1985 [199]UANOZAP [211]OFTWARE      ."
20079 DATA".                                     ."
20080 DATA".     [206]OT A PUBLIC DOMAIN PROGRAM     ."
20081 DATA".                                     ."
20082 DATA"......................................."